Σημείο Κ

e = 2.718281828459045
f = If(x > 1.0, e^(x - 1.0) + 1.0, 3.0 * x - 1.0)
x1 = 0.7 (slider from 0 to 1, step 0.1)
B: (x1, 0.0)
b: x = x1
A = (1, 0)
x2 = 2 (slider from 1 to 2, step 0.1)
a: x = x2
C = Intersect(f, a, (2.0, 3.7182818284590455))
D = Intersect(f, b, (0.7, 1.0999999999999996))
c = OrthogonalLine(C, yAxis)
d = OrthogonalLine(D, yAxis)
E: (x2, 0.0)
τιμήορίου = Intersect(c, yAxis)
H = Point(b)
F = Intersect(d, yAxis)
g = OrthogonalLine(E, xAxis)
h = OrthogonalLine(B, xAxis)
I = Intersect(f, h, (0.7, 1.0999999999999996))
Δ = Intersect(f, c, (2.00000000008906, 3.718281828701135))
j = Segment(Δ, τιμήορίου)
i = Segment(E, Δ)
k = Segment(E, A)
l = Segment(B, A)
m = Segment(B, I)
n = Segment(I, F)
K = (1, 2)
o = false
L = (1, 2)